source("C:/Users/Sascha/Documents/Uni/Vertiefungsstudium/Vertiefung/development/Projektarbeit/scripts/limits_festlegen/limit.R")
			 
dirpath <- "C:/Users/Sascha/Documents/Uni/Vertiefungsstudium/Vertiefung/development/Projektarbeit/Beispieldaten"
fnames <- list.files(dirpath, recursive = T, pattern = ".dat")
			 
			 
limit(
	inpath = c(paste(dirpath, fnames[1], sep = "/"), paste(dirpath, fnames[2], sep = "/"), paste(dirpath, fnames[3], sep = "/"), paste(dirpath, fnames[4], sep = "/"), paste(dirpath, fnames[5], sep = "/"), paste(dirpath, fnames[6], sep = "/"), paste(dirpath, fnames[7], sep = "/"), paste(dirpath, fnames[8], sep = "/"), paste(dirpath, fnames[9], sep = "/"), paste(dirpath, fnames[10], sep = "/"), paste(dirpath, fnames[11], sep = "/"), paste(dirpath, fnames[12], sep = "/"), paste(dirpath, fnames[13], sep = "/")),
	outpath = "C:/Users/Sascha/Documents/Uni/Vertiefungsstudium/Vertiefung/development/Projektarbeit/scripts/output/limit/limits.txt",
	quantmin = 0.01,
	quantmax = 0.99
	)